(byte-optimize-nthcdr): Fix previous change.

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 46d812299f77fc009c1d63695530512ca2ea06fd..9d69a2fc75e6b77e7847ed419c6d74976282f790 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1041,7 +1041,7 @@
       (byte-optimize-predicate form)
     (let ((count (nth 1 form)))
       (setq form (nth 2 form))
-      (while (> (setq count (1- count)) 0)
+      (while (>= (setq count (1- count)) 0)
        (setq form (list 'cdr form)))
       form)))
 \f